home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / x11 / rpg / crossfir.92 / crossfir / crossfire-0.92.5 / lib / adm / dilate_xpm_files < prev    next >
Text File  |  1996-07-24  |  3KB  |  82 lines
  1. #!/usr/local/bin/perl
  2. # -*- Perl -*-
  3. # usage: dilate [-t<number>] file1 [..filen]
  4. # 
  5. # filenames are colored crossfire xpm-files.
  6. # -t option sets the minimum amount of pixels around needed to set the pixel.
  7. #    default is 1.
  8.  
  9. @dirx = ( 0, 1, 1, 1, 0, -1, -1, -1);
  10. @diry = ( -1, -1, 0, 1, 1, 1, 0, -1);
  11.  
  12. $th = 1;
  13. if ($ARGV[0] =~ /-t(.*)/) {    
  14.     shift;    
  15.     $th = $1 ? $1 : shift;
  16. }
  17.  
  18. print "$th\n";
  19.  
  20. while ($face = shift) {
  21.     print ">$face<\n";
  22.     open (FA, "<$face") || warn "aargh";
  23.     open (OR, ">pah") || die "aargh";
  24.     $changed = 0;
  25.     @m = ();
  26.     while ($_ = <FA>) {
  27.         if (/"(\d+)\s+(\d+)\s+(\d+)\s+(\d+)"/) {
  28.             $cols = $3 + 1;
  29.             print OR "\"$1 $2 $cols $4\",\n";
  30.             next;
  31.         }
  32.         if (/\/\*\s*colors\s*\*\//) {
  33.             print OR "/* colors */\n";
  34.             print OR "\"       s None  c None\",\n";
  35.             $count = 0;
  36.             while (($_ = <FA>) && /"(.) (.) (.*)",/) {
  37.                 print "$1 $2 $3\n";
  38.                 $colors[$count++] = $1;
  39.                 print OR $_;
  40.             }
  41.         }
  42.         if (/\/\*\s*pixels\s*\*\//) {
  43.             print OR "/* pixels */\n";
  44.             $count = 0;
  45.             while (($_ = <FA>) && /"(........................)"(.*)/) { 
  46.                 $save[$count] = $2;
  47.                 print "$1, ***$save[$count]***\n";
  48.                 $arr[$count++] = $1;
  49.                 push (@m, split ('', $1));
  50.                 last if ($2 ne ",");
  51.             }
  52.             die "illegal count $count" if ($count != 24);
  53.             foreach $y (0..23) {
  54.                 $row = "";
  55.                 foreach $x (0..23) {                
  56.                     if ($m[$x + $y * 24] eq $colors[0]) {
  57.                         $row .= $colors[0];
  58.                         next;
  59.                     }
  60.                     $sum = 0;
  61.                     foreach $i (0..7) {
  62.                         $nx = $x + $dirx[$i];
  63.                         $ny = $y + $diry[$i];
  64.                         $sum++ if ($nx >= 0 && $nx < 24 && $ny >= 0 && $ny < 24 &&
  65.                                    $m[$nx + $ny * 24] eq $colors[0]);
  66.                     }
  67.                     #print "$x $y $sum\n";
  68.                     $row .= ($sum >= $th) ? $colors[1] : " ";
  69.                 }
  70.                 print ">$row<\n";
  71.                 print OR "\"$row\"$save[$y]\n";
  72.             }
  73.             next;
  74.         }
  75.         print OR $_;
  76.     }
  77.     close (FA);
  78.     close (OR);
  79.     unlink ("$face");
  80.     rename ("pah", "$face") || die "rename";
  81. }
  82.